constant kAppSymbol := '|RegTest:FlaSheridn| ;
constant kSharewareFee := 42;
//constant kSharewareFeeString := "$42";  //optional
constant kVersionString := "1.0d1";


write("\n" & "_______________________________________" & "\n" 
	& kAppSymbol  && kVersionString &&
	dateNTime(Time()) & 
	"\n" & "_______________________________________" & "\n" & "\n"); 


defconst( 'kReverseStringsFunc,
func(a,b,c) 
begin
	local inp := a && b && c	;
	local out := "";
	for i := 0 to strLen(inp) -1 
		do out := inp[i] & out;
	return out;
end;
					);

